/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / misc / PhoneDecode.lha / PhoneCode / PhoneCode.bb.bak

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |; ------|--------|
|00000010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 00 3b 20 |--------|-----.; |
|00000050| 2d 2d 20 50 68 6f 6e 65 | 43 6f 64 65 20 56 65 72 |-- Phone|Code Ver|
|00000060| 73 69 6f 6e 20 31 2e 30 | 20 20 20 20 20 20 20 20 |sion 1.0|        |
|00000070| 20 20 20 62 79 20 43 75 | 72 74 20 45 73 73 65 72 |   by Cu|rt Esser|
|00000080| 20 20 3c 63 61 6d 67 65 | 40 69 78 2e 6e 65 74 63 |  <camge|@ix.netc|
|00000090| 6f 6d 2e 63 6f 6d 3e 20 | 20 2d 2d 00 3b 20 2d 2d |om.com> | --.; --|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 00 3b 20 2d 2d 20 57 |--------|-.; -- W|
|000000f0| 69 6e 64 6f 77 20 2b 20 | 47 54 20 73 6f 75 72 63 |indow + |GT sourc|
|00000100| 65 20 6d 61 64 65 20 77 | 69 74 68 20 47 61 64 54 |e made w|ith GadT|
|00000110| 6f 6f 6c 73 42 6f 78 20 | 20 20 20 20 20 20 20 20 |oolsBox |        |
|00000120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000130| 20 20 20 20 20 2d 2d 00 | 3b 20 2d 2d 2d 2d 2d 2d |     --.|; ------|
|00000140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000180| 2d 2d 2d 2d 2d 00 3b 20 | 2d 2d 20 47 61 64 54 6f |-----.; |-- GadTo|
|00000190| 6f 6c 73 42 6f 78 20 73 | 6f 75 72 63 65 20 63 6f |olsBox s|ource co|
|000001a0| 6e 76 65 72 74 65 64 20 | 75 73 69 6e 67 20 47 54 |nverted |using GT|
|000001b0| 42 6f 78 43 6f 6e 76 20 | 56 34 2e 35 30 20 2d 20 |BoxConv |V4.50 - |
|000001c0| 42 79 20 46 61 62 69 6f | 20 52 6f 74 6f 6e 64 6f |By Fabio| Rotondo|
|000001d0| 20 2d 2d 00 3b 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | --.; --|--------|
|000001e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000220| 2d 00 3b 20 2d 2d 20 4c | 61 73 74 20 6d 6f 64 69 |-.; -- L|ast modi|
|00000230| 66 69 65 64 20 20 20 20 | 20 20 20 20 20 20 20 20 |fied    |        |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000260| 20 20 20 20 30 38 2f 31 | 37 2f 39 37 20 2d 2d 00 |    08/1|7/97 --.|
|00000270| 3b 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |; ------|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 00 00 80 |--------|-----...|
|000002c0| c3 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000002d0| 20 20 20 20 20 20 20 20 | 3b 20 72 75 6e 20 66 72 |        |; run fr|
|000002e0| 6f 6d 20 69 63 6f 6e 00 | cf 02 20 30 20 20 20 20 |om icon.|.. 0    |
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000300| 3b 20 6f 6e 20 74 68 65 | 20 57 6f 72 6b 62 65 6e |; on the| Workben|
|00000310| 63 68 00 80 2c 20 cf 01 | 20 30 00 00 3b 20 2d 2d |ch.., ..| 0..; --|
|00000320| 2d 00 3b 20 2d 2d 2d 20 | 47 61 64 67 65 74 20 43 |-.; --- |Gadget C|
|00000330| 6f 6e 73 74 61 6e 74 73 | 00 3b 20 2d 2d 2d 00 23 |onstants|.; ---.#|
|00000340| 45 6e 74 65 72 4e 75 6d | 62 65 72 20 3d 20 35 31 |EnterNum|ber = 51|
|00000350| 20 20 20 20 3b 47 54 20 | 67 61 64 67 65 74 20 23 |    ;GT |gadget #|
|00000360| 20 73 68 6f 75 6c 64 20 | 61 6c 77 61 79 73 20 62 | should |always b|
|00000370| 65 20 3e 20 35 30 20 66 | 6f 72 20 77 62 20 32 2e |e > 50 f|or wb 2.|
|00000380| 30 00 23 4f 75 74 50 75 | 74 20 20 20 20 20 20 3d |0.#OutPu|t      =|
|00000390| 20 35 32 00 00 3b 20 2d | 2d 2d 00 3b 20 2d 2d 2d | 52..; -|--.; ---|
|000003a0| 20 47 61 64 67 65 74 20 | 44 65 66 69 6e 69 74 69 | Gadget |Definiti|
|000003b0| 6f 6e 73 00 3b 20 2d 2d | 2d 00 c6 8c 20 20 20 20 |ons.; --|-...    |
|000003c0| 30 2c 23 45 6e 74 65 72 | 4e 75 6d 62 65 72 2c 31 |0,#Enter|Number,1|
|000003d0| 38 2c 36 2c 32 33 30 2c | 32 30 2c 22 50 68 6f 6e |8,6,230,|20,"Phon|
|000003e0| 65 20 4e 75 6d 62 65 72 | 22 2c 23 50 4c 41 43 45 |e Number|",#PLACE|
|000003f0| 54 45 58 54 5f 42 45 4c | 4f 57 2c 32 35 36 2c 22 |TEXT_BEL|OW,256,"|
|00000400| 22 00 c6 8d 20 20 20 20 | 20 20 30 2c 23 4f 75 74 |"...    |  0,#Out|
|00000410| 50 75 74 2c 31 38 2c 35 | 30 2c 32 33 30 2c 32 30 |Put,18,5|0,230,20|
|00000420| 2c 22 4e 75 6d 62 65 72 | 20 74 6f 20 44 69 61 6c |,"Number| to Dial|
|00000430| 22 2c 23 50 4c 41 43 45 | 54 45 58 54 5f 42 45 4c |",#PLACE|TEXT_BEL|
|00000440| 4f 57 2c 22 22 00 00 3b | 20 2d 2d 2d 00 3b 20 2d |OW,""..;| ---.; -|
|00000450| 2d 2d 20 57 69 6e 64 6f | 77 20 49 6e 69 74 69 61 |-- Windo|w Initia|
|00000460| 6c 69 7a 69 6e 67 20 63 | 6f 64 65 00 3b 20 2d 2d |lizing c|ode.; --|
|00000470| 2d 00 2a 67 74 73 63 72 | 2e 53 63 72 65 65 6e 20 |-.*gtscr|.Screen |
|00000480| 3d 20 da 02 2e 6c 20 28 | 80 b8 20 cf 01 28 30 29 |= ...l (|.. ..(0)|
|00000490| 29 00 6f 66 66 79 2e 62 | 20 3d 20 2a 67 74 73 63 |).offy.b| = *gtsc|
|000004a0| 72 5c 57 42 6f 72 54 6f | 70 20 2b 20 2a 67 74 73 |r\WBorTo|p + *gts|
|000004b0| 63 72 5c 5f 52 61 73 74 | 50 6f 72 74 5c 54 78 48 |cr\_Rast|Port\TxH|
|000004c0| 65 69 67 68 74 20 2b 31 | 00 c5 01 20 30 2c 31 36 |eight +1|... 0,16|
|000004d0| 30 2c 35 31 2c 32 37 37 | 2c 38 37 20 2b 20 6f 66 |0,51,277|,87 + of|
|000004e0| 66 79 2c 24 31 30 30 43 | 2c 22 50 68 6f 6e 65 20 |fy,$100C|,"Phone |
|000004f0| 4e 75 6d 62 65 72 20 44 | 65 63 6f 64 65 72 22 2c |Number D|ecoder",|
|00000500| 31 2c 32 00 3b 43 61 74 | 63 68 44 6f 73 45 72 72 |1,2.;Cat|chDosErr|
|00000510| 73 00 3b 57 69 6e 64 6f | 77 46 6f 6e 74 20 30 00 |s.;Windo|wFont 0.|
|00000520| 6f 66 66 78 2e 62 20 3d | 20 c5 31 00 c6 8e 20 30 |offx.b =| .1... 0|
|00000530| 2c 30 00 00 3b 20 2d 2d | 2d 00 3b 20 2d 2d 2d 20 |,0..; --|-.; --- |
|00000540| 4b 69 63 6b 20 32 2e 30 | 30 20 63 6f 6d 70 61 74 |Kick 2.0|0 compat|
|00000550| 69 62 6c 65 20 47 54 47 | 65 74 53 74 72 69 6e 67 |ible GTG|etString|
|00000560| 20 63 6f 6d 6d 61 6e 64 | 00 3b 20 2d 2d 2d 20 54 | command|.; --- T|
|00000570| 68 65 73 65 20 63 6f 6d | 6d 61 6e 64 73 20 77 6f |hese com|mands wo|
|00000580| 72 6b 20 70 72 6f 70 65 | 72 65 6c 79 20 61 6c 73 |rk prope|rely als|
|00000590| 6f 20 77 69 74 68 20 4f | 53 32 2e 30 34 2b 20 73 |o with O|S2.04+ s|
|000005a0| 6f 20 55 53 45 20 54 48 | 45 4d 00 3b 20 2d 2d 2d |o USE TH|EM.; ---|
|000005b0| 20 49 6e 73 74 65 61 64 | 20 6f 66 20 42 6c 69 74 | Instead| of Blit|
|000005c0| 7a 20 63 6f 6d 6d 61 6e | 64 73 21 21 21 00 3b 20 |z comman|ds!!!.; |
|000005d0| 2d 2d 2d 00 00 3b 20 2d | 2d 2d 00 3b 20 2d 2d 2d |---..; -|--.; ---|
|000005e0| 20 47 54 47 65 74 53 74 | 72 20 47 54 4c 69 73 74 | GTGetSt|r GTList|
|000005f0| 23 2c 20 67 61 64 69 64 | 20 20 20 28 47 54 47 65 |#, gadid|   (GTGe|
|00000600| 74 53 74 72 69 6e 67 20 | 72 65 70 6c 61 63 65 6d |tString |replacem|
|00000610| 65 6e 74 29 00 3b 20 2d | 2d 2d 00 80 09 2e 73 20 |ent).; -|--....s |
|00000620| 47 54 47 65 74 53 74 72 | 7b 6c 73 74 2e 77 2c 20 |GTGetStr|{lst.w, |
|00000630| 67 64 74 2e 77 7d 00 20 | 20 2a 67 61 64 2e 47 61 |gdt.w}. | *gad.Ga|
|00000640| 64 67 65 74 20 3d 20 c6 | 90 28 6c 73 74 2c 20 67 |dget = .|.(lst, g|
|00000650| 64 74 29 00 20 20 2a 73 | 69 2e 53 74 72 69 6e 67 |dt).  *s|i.String|
|00000660| 49 6e 66 6f 20 3d 20 2a | 67 61 64 5c 53 70 65 63 |Info = *|gad\Spec|
|00000670| 69 61 6c 49 6e 66 6f 00 | 20 20 61 24 3d 20 da 02 |ialInfo.|  a$= ..|
|00000680| 24 28 2a 73 69 5c 5f 42 | 75 66 66 65 72 29 00 20 |$(*si\_B|uffer). |
|00000690| 20 80 09 20 80 07 20 61 | 24 00 80 02 20 80 09 00 | .. .. a|$... ...|
|000006a0| 00 00 3b 20 2d 2d 2d 00 | 3b 20 2d 2d 2d 20 45 76 |..; ---.|; --- Ev|
|000006b0| 65 6e 74 20 48 61 6e 64 | 6c 65 72 00 3b 20 2d 2d |ent Hand|ler.; --|
|000006c0| 2d 00 80 bb 20 20 3b 20 | 2d 2d 20 6b 65 65 70 20 |-...  ; |-- keep |
|000006d0| 67 6f 69 6e 67 20 75 6e | 74 69 6c 20 74 68 65 20 |going un|til the |
|000006e0| 43 6c 6f 73 65 20 57 69 | 6e 64 6f 77 20 62 75 74 |Close Wi|ndow but|
|000006f0| 74 6f 6e 20 69 73 20 68 | 69 74 20 2d 2d 00 00 20 |ton is h|it --.. |
|00000700| 20 65 76 2e 6c 20 3d 20 | c5 02 00 3b 20 2d 2d 2d | ev.l = |...; ---|
|00000710| 00 3b 20 2d 2d 2d 20 47 | 61 64 67 65 74 20 48 61 |.; --- G|adget Ha|
|00000720| 6e 64 6c 65 72 00 3b 20 | 2d 2d 2d 00 20 20 80 0b |ndler.; |---.  ..|
|00000730| 20 28 65 76 20 3d 20 23 | 49 44 43 4d 50 5f 47 41 | (ev = #|IDCMP_GA|
|00000740| 44 47 45 54 55 50 29 20 | 80 42 20 28 c5 05 20 3d |DGETUP) |.B (.. =|
|00000750| 20 30 29 00 20 20 20 20 | 3b 20 2d 2d 20 74 68 65 | 0).    |; -- the|
|00000760| 72 65 20 69 73 20 6f 6e | 6c 74 20 6f 6e 65 20 47 |re is on|lt one G|
|00000770| 54 67 61 64 20 73 6f 20 | 69 74 20 6d 75 73 74 20 |Tgad so |it must |
|00000780| 62 65 20 74 68 65 20 6f | 6e 65 20 74 68 61 74 20 |be the o|ne that |
|00000790| 77 61 73 20 68 69 74 21 | 00 20 20 20 20 61 24 20 |was hit!|.    a$ |
|000007a0| 3d 20 47 54 47 65 74 53 | 74 72 7b 30 2c 35 31 7d |= GTGetS|tr{0,51}|
|000007b0| 20 20 20 20 20 20 20 20 | 3b 66 69 6e 64 20 6f 75 |        |;find ou|
|000007c0| 74 20 77 68 61 74 20 77 | 61 73 20 65 6e 74 65 72 |t what w|as enter|
|000007d0| 65 64 00 20 20 20 20 63 | 24 20 3d 20 22 22 20 20 |ed.    c|$ = ""  |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007f0| 20 20 3b 63 6c 65 61 72 | 20 74 68 65 20 64 65 73 |  ;clear| the des|
|00000800| 74 69 6e 61 74 69 6f 6e | 20 73 74 72 69 6e 67 00 |tination| string.|
|00000810| 20 20 20 20 80 16 20 69 | 20 3d 20 31 20 80 18 20 |    .. i| = 1 .. |
|00000820| dc 8f 28 61 24 29 20 20 | 20 20 20 20 20 3b 20 20 |..(a$)  |     ;  |
|00000830| 74 68 65 20 63 6f 6e 76 | 65 72 73 69 6f 6e 20 72 |the conv|ersion r|
|00000840| 6f 75 74 69 6e 65 00 00 | 20 20 20 20 20 20 62 24 |outine..|      b$|
|00000850| 3d dc 98 28 dc 83 28 61 | 24 2c 69 2c 31 29 29 20 |=..(..(a|$,i,1)) |
|00000860| 20 3b 20 67 65 74 20 65 | 61 63 68 20 63 68 61 72 | ; get e|ach char|
|00000870| 61 63 74 65 72 20 2b 20 | 63 6f 6e 76 65 72 74 20 |acter + |convert |
|00000880| 74 6f 20 55 70 70 65 72 | 63 61 73 65 00 00 20 20 |to Upper|case..  |
|00000890| 20 20 20 20 80 0b 20 62 | 24 20 3d 22 41 22 20 80 |    .. b|$ ="A" .|
|000008a0| 8a 20 62 24 3d 22 42 22 | 20 80 8a 20 62 24 3d 22 |. b$="B"| .. b$="|
|000008b0| 43 22 20 80 21 20 62 24 | 3d 22 32 22 20 20 20 20 |C" .! b$|="2"    |
|000008c0| 3b 63 6f 6e 76 65 72 74 | 20 74 68 65 00 20 20 20 |;convert| the.   |
|000008d0| 20 20 20 80 0b 20 62 24 | 20 3d 22 44 22 20 80 8a |   .. b$| ="D" ..|
|000008e0| 20 62 24 3d 22 45 22 20 | 80 8a 20 62 24 3d 22 46 | b$="E" |.. b$="F|
|000008f0| 22 20 80 21 20 62 24 3d | 22 33 22 20 20 20 20 3b |" .! b$=|"3"    ;|
|00000900| 63 68 61 72 61 63 74 65 | 72 73 00 20 20 20 20 20 |characte|rs.     |
|00000910| 20 80 0b 20 62 24 20 3d | 22 47 22 20 80 8a 20 62 | .. b$ =|"G" .. b|
|00000920| 24 3d 22 48 22 20 80 8a | 20 62 24 3d 22 49 22 20 |$="H" ..| b$="I" |
|00000930| 80 21 20 62 24 3d 22 34 | 22 20 20 20 20 3b 74 6f |.! b$="4|"    ;to|
|00000940| 20 6e 75 6d 62 65 72 73 | 00 20 20 20 20 20 20 80 | numbers|.      .|
|00000950| 0b 20 62 24 20 3d 22 4a | 22 20 80 8a 20 62 24 3d |. b$ ="J|" .. b$=|
|00000960| 22 4b 22 20 80 8a 20 62 | 24 3d 22 4c 22 20 80 21 |"K" .. b|$="L" .!|
|00000970| 20 62 24 3d 22 35 22 20 | 20 20 20 3b 77 68 65 72 | b$="5" |   ;wher|
|00000980| 65 20 6e 65 63 65 73 73 | 61 72 79 00 20 20 20 20 |e necess|ary.    |
|00000990| 20 20 80 0b 20 62 24 20 | 3d 22 4d 22 20 80 8a 20 |  .. b$ |="M" .. |
|000009a0| 62 24 3d 22 4e 22 20 80 | 8a 20 62 24 3d 22 4f 22 |b$="N" .|. b$="O"|
|000009b0| 20 80 21 20 62 24 3d 22 | 36 22 00 20 20 20 20 20 | .! b$="|6".     |
|000009c0| 20 80 0b 20 62 24 20 3d | 22 50 22 20 80 8a 20 62 | .. b$ =|"P" .. b|
|000009d0| 24 3d 22 52 22 20 80 8a | 20 62 24 3d 22 53 22 20 |$="R" ..| b$="S" |
|000009e0| 80 21 20 62 24 3d 22 37 | 22 00 20 20 20 20 20 20 |.! b$="7|".      |
|000009f0| 80 0b 20 62 24 20 3d 22 | 54 22 20 80 8a 20 62 24 |.. b$ ="|T" .. b$|
|00000a00| 3d 22 55 22 20 80 8a 20 | 62 24 3d 22 56 22 20 80 |="U" .. |b$="V" .|
|00000a10| 21 20 62 24 3d 22 38 22 | 00 20 20 20 20 20 20 80 |! b$="8"|.      .|
|00000a20| 0b 20 62 24 20 3d 22 57 | 22 20 80 8a 20 62 24 3d |. b$ ="W|" .. b$=|
|00000a30| 22 58 22 20 80 8a 20 62 | 24 3d 22 59 22 20 80 21 |"X" .. b|$="Y" .!|
|00000a40| 20 62 24 3d 22 39 22 00 | 00 20 20 20 20 20 20 63 | b$="9".|.      c|
|00000a50| 24 3d 63 24 2b 62 24 20 | 20 20 20 20 20 20 20 20 |$=c$+b$ |        |
|00000a60| 20 20 20 20 20 20 20 20 | 3b 6e 6f 77 20 61 64 64 |        |;now add|
|00000a70| 20 74 68 65 20 63 6f 72 | 72 65 63 74 20 64 69 67 | the cor|rect dig|
|00000a80| 69 74 20 74 6f 20 63 24 | 00 00 20 20 20 20 80 17 |it to c$|..    ..|
|00000a90| 00 00 20 20 20 20 c6 94 | 20 30 2c 35 32 2c 63 24 |..    ..| 0,52,c$|
|00000aa0| 20 20 20 20 20 20 20 20 | 3b 61 6e 64 20 73 68 6f |        |;and sho|
|00000ab0| 77 20 74 68 65 20 72 65 | 73 75 6c 74 00 00 20 20 |w the re|sult..  |
|00000ac0| 80 c0 00 00 80 bc 20 65 | 76 3d 24 32 30 30 20 80 |...... e|v=$200 .|
|00000ad0| 42 20 c5 05 20 3d 20 30 | 00 00 80 02 00          |B .. = 0|.....   |
+--------+-------------------------+-------------------------+--------+--------+